Excel VBA小程序 -批量合并和撤销合并单元格

最新推荐文章于 2024-07-12 13:38:16 发布

牧文山

最新推荐文章于 2024-07-12 13:38:16 发布

阅读量990

点赞数 1

分类专栏： VBA 文章标签：小程序

本文链接：https://blog.csdn.net/weixin_42750611/article/details/121088694

版权

在Excel中，为了整理数据，有时需要批量合并或撤销合并单元格。确保数据列已排序，然后使用VBA宏代码可以高效完成这一任务。通过复制并运行宏，可以轻松实现对单元格的批量合并与批量撤销合并。

摘要由CSDN通过智能技术生成

合并单元格之前要提前将数据列排序好，然后再复制以下代码，运行宏程序。

批量合并单元格

Sub RngMergeCondition() '批量合并单元格
    Dim rngUser As Range
    Dim rngMerge As Range
    Dim rngSelect As Range
    Dim i As Long, j As Long
    Dim lngRowFirst As Long
    Dim lngClnFirst As Long
    Dim arr As Variant
    Dim brr As Variant
    Dim strTemp As String
    Dim lngBK As Long
    Dim shtUser As Worksheet
    On Error Resume Next
    Set rngSelect = Selection
    Set rngUser = Application.InputBox("请选择需要合并的单元格区域！", Default:=rngSelect.Address, Type:=8)
    Set rngUser = Intersect(rngUser.Parent.UsedRange, rngUser)
    '使用Intersect规避用户选择整列数据
    If rngUser Is Nothing Then MsgBox "选择的单元格区域不能为空白": Exit Sub
    arr = rngUser.Value
    ReDim brr(